home *** CD-ROM | disk | FTP | other *** search
/ BBS Toolkit / BBS Toolkit.iso / doors_1 / fd200.zip / FD_VAR.PAS < prev    next >
Pascal/Delphi Source File  |  1988-02-21  |  792b  |  45 lines
  1. var
  2.    video   : array[0..3999] of byte absolute $0B800:$0000;
  3.    screen1    : array[0..3999] of byte;
  4.    save_image : array[0..3999] of byte;
  5.    image1     : array[0..4095] of byte;
  6.    image2     : array[0..4095] of byte;
  7.  
  8.    key, qkey  : char;
  9.  
  10.    default_file : string[24];
  11.  
  12.    hour,
  13.    min,
  14.    sec,
  15.    sec100,
  16.    this_second,
  17.    year,
  18.    month,
  19.    day,
  20.    dow,
  21.    time_zone : word;
  22.  
  23.    contacts : array[0..10] of integer;
  24.    total_contacts,
  25.    my_mult, score    : integer;
  26.  
  27.    x, y,
  28.    old_x, old_y,
  29.    curs_x, curs_y,
  30.    line_nbr         : integer;
  31.  
  32.    x_y : array[0..4,0..14] of integer;
  33.  
  34.    op_mode : mode;
  35.    band    : hamband;
  36.  
  37.    callsign : string[6];
  38.  
  39.    fd_file : TEXT;
  40.  
  41.    escape,
  42.    make_backup,
  43.    auto_section,
  44.    tunes : boolean;
  45.